home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / jock.zip / TOTDEM11.ZIP / DEMMN1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  708b  |  31 lines
  1. program DemoMenuOne;
  2. {DEMMN1 - a basic menu}
  3.  
  4. USES  DOS, CRT,
  5.       totMENU, totFAST;
  6.  
  7. var
  8.   Main: MenuOBJ;
  9.   Choice: byte;
  10. begin
  11.    Screen.Clear(white,'░'); {paint the screen}
  12.    with Main do
  13.    begin
  14.       Init;
  15.       AddItem('');
  16.       AddItem(' Load a file          ');
  17.       AddItem(' Edit Date            ');
  18.       AddItem(' Save the file        ');
  19.       AddItem(' Change configuration ');
  20.       AddItem('-');
  21.       AddItem(' Quit                 ');
  22.       SetStyleTitle(1,' Main Menu ');
  23.       SetActiveItem(2);
  24.       Choice := Activate;
  25.       Done;
  26.    end;
  27.    if Choice = 0 then
  28.       Writeln('You escaped')
  29.    else
  30.       Writeln('You selected menu item ',Choice);
  31. end.